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Seth (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT eGORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVE 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tint AND WITH THE 
INCLUSION OF THE ABOVE Sgt NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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000 ;* CORPORATION. 

0000 3 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
8808 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
0000 : RRA AAAAAEEAEAAEAAAAAAAAAAAAAERAAAAARAAAAAARAAARAAAAAAAAAAAEAAEARAERAERAEAEEREE 
0000 : 

0000 3 
464 3 PA gehide COBOL ARITHMETIC 
0000 + ABSTRACT: 
0000 ; This module contains the routine which multiplies two 
44 ‘ quadwords, producing a quadword result. 
0000 : 

0000 i-- 

0000 3 

0000 40 ; VERSION: 1 

0000 41; 

0000 42 ; HISTORY: 

0000 43; 

388 44 ; AUTHOR: 

305 ? : John Sauter, 22-DEC-78 

0000 47 : MODIFIED BY: 

000 48 ; 

000 49 ; 

000 50 ; 
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HISTORY ; Detailed Current Edit History 6-SEP-1984 10:48: COBRTL.SRCJCOBMULQ.MAR; 1 


¢ -SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 1 of COBMULQ 


Original from Architecture Ngndoek page 6-28. 
Correct some comments. JBS 26-DEC-7 

Make the entry point eo gogel. JBS 03-JAN-1979 
Minor cleanups. MLJ 10-Mar- 

Make overtenging input and output operands work correctly. 
RKR 24-SEPT-79 

Cosmetic changes. RKR 21-0CT-79 
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SANS NSN NNO OO 


x00 0.00000 00 00 C8 COC CD CD 
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«SBTTL DECLARATIONS 


COBRTL.SRCIJCOBMULQ.MAR; 1 


: INCLUDE FILES: 


EXTERNAL SYMBOLS: 
NONE 


MACROS: 
NONE 


PSECT DECLARATIONS: 


-PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 


EQUATED SYMBOLS: 
NONE 


OWN STORAGE: 
NONE 
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1606 COSSMULO_RB’ 5-$Ee= 198s 70:48:50 Ledante eeeicoumuLe mars? 2 chy, 
a8 -SBTTL COBSMULQ_R8S 
soe 
38 : FUNCTIONAL DESCRIPTION: 
6 100 ; Multiplies two quadwords, producing a quadword result. 
101 ; There is no check for overflow; the low-order 64 bits 
38 : § ; are returned. 
999 104 ; CALLING SEQUENCE: 
000 199 ; JSB COBSMULQ_RB (multiplier.rq.r, multiplicand.rq.r, product.wq.r) 
9000 108 : Arguments are passed in R6, R7 and R8. 
900 110 : INPUT PARAMETERS: 
000 116 : MULTIPLIER. rq.r Value to the right of the * 
4 BF : MULTIPLICAND.rq.r Value to the left of the * 
0000 115 > IMPLICIT INPUTS: 
44 "7 : ALL of the trap bits in the PSL are assumed off. 
9000 119 3 OUTPUT PARAMETERS: 
8008 131 : PRODUCT .wq.r The result of the multiply. 
0000 (1 j : IMPLICIT OUTPUTS: 
0000 124; 
oo iy we 
0000 127 ; COMPLETION CODES: 
0000 128; 
3 ig; me 
9000 1 > SIDE EFFECTS: 
0000 «(1 : ; Destroys registers RO through R8. 
0000 134; 
on 
$00 1 $ COBSMULQ_R8:: 
54 00 67 66 7A $44! 1 3 EMUL (R6),(R7),#0,R4 =; Multiply low half = Result to R4,R5 
50 67 04 A6 (C5 1 MULL 4(R65, (R75 RO ; Form cross products 
51 04 A? 66 C5 000A 140 MULLS (R6),4(R7).R1 ; 
50 51 €0 OOF 141 ADDL2 R1,R6 > Sum cross products 
03 66 +#+W€i 12 196 BBC #31, (R6), 10 3; Compensate for unsigned bias 
39 67 CO 018 14 ADDL2 (R75 RO : 
03 67 iY el O19 148 108: BBC #31 (7) .208 : Compensate for unsigned bias 
28 50 0 ° 9 146 208 ADDLe RO, RS : Add in cross product 
68 4 D 14 mOva R4, (RB) ; Return result 
05 0 § 163 ; RSB 3; Return 
7 150° END 
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COBSMULQ_R8 COBOL Multiply Quadwords 
Symbol table 
COBSMULQ_R8B 00000000 RG 01 
peer ese nose anaaos } 
! : Psect Synopsis — ; 
PSECT name Allocation PSECT No. Attributes 
ABS 00000 0 ¢ 0.) NOPIC  USR 
COBSCODE atte, hal 8 1.) PIC USR 
esceuccousescoccsescocoe$ 
I" Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization * 8:90:08 .93 0:00:0 43 
zonnene processing 116 0: sf 0 0:00:0 ¢) 

66 Bp BR: 3-68 0:00:02. 3 
Syabol table sort 0 0: . 0. 3 00:8 0 

41 0:00:00. 0:00:00.89 
Symbol table output 1 0:00:00.00 0:00:00.00 
Psect synopsis output 3 00:00:00.01 0:00:00.0 
Cross-reference output 0 00:00:00.00 00:00:00.0 
Assembler run totals 258 00:00:00.79 00:00:05.6 
The working set Limit was 900 pages. 


1644 bytes (4 pages) of virtua 
There were 10 pages of symbol table gare — ey ¥ to hold 1 
150 source Lines were read in Pass 1 


0 pages of virtual memory were used to define cros. 
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Macro Library name 
~8255$DUA28: CSYSLIBJSTARLET.MLB;2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 


, an were used to buffer the intermediate 

non-local and 
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REL LCL 


15:08:35 


AX/VMS Macro v04-00 
COBRTL.SRCJCOBMULQ.MAR; 1 


Page 


LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
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SHR = EXE 


RD NOWRT NOVEC L 


MACRO/ENABLE=SUPPRESS10N/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:COBMULQ/0BJ=0BJ$:COBMULQ MSRC$:COBMULQ/UPDATE=(ENH$: COBMULQ) 
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